home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / DIALOG.DIR / 00018.ls < prev    next >
Encoding:
Text File  |  2003-10-01  |  237 b   |  17 lines
  1. on mouseDown
  2.   puppetSound(1, "button noise")
  3.   updateStage()
  4. end
  5.  
  6. on mouseUp
  7.   global gUI
  8.   repeat while soundBusy(1)
  9.     updateStage()
  10.   end repeat
  11.   puppetSound(0)
  12.   tell the stage
  13.     closeDialogWin(gUI)
  14.     Prev(gUI)
  15.   end tell
  16. end
  17.